home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / PicShow / Install < prev    next >
Encoding:
Text File  |  2002-10-27  |  9.1 KB  |  207 lines
  1. ;--------------------------------------------------------------------------------------------------
  2. ; Installation script for PicShow
  3. ; $VER: install 1.3 (25.10.02)
  4. ;--------------------------------------------------------------------------------------------------
  5.  
  6.  
  7. ;--------------------------------------------------------------------------------------------------
  8. ; English texts (default)
  9. ;--------------------------------------------------------------------------------------------------
  10.  
  11. (set #welcome-msg (cat "\nWelcome to the installation of " @app-name))
  12.  
  13. (set #which-version "Please choose the processor version of PicShow that should be installed.")
  14.  
  15. (set #where-picshow "Where should the PicShow main programm be copied to ?")
  16. (set #where-tools   "Where should the additional tools be copied to ?")
  17. (set #where-help    "Where should the help files be copied to ?")
  18. (set #where-prefs   "Where should the skin and settings files be copied to ?")
  19. (set #where-cat     "Where should the language catalog files be copied to ?")
  20. (set #where-trans   "Where should the translation files be copied to ?\nThese are only needed if you want to create your own language catalog.")
  21.  
  22. (set #copy-main  "Copying PicShow main program")
  23. (set #copy-tools "Copying additional tools")
  24. (set #copy-help  "Which help files should be copied ?")
  25. (set #copy-prefs "Copying skin and settings files")
  26. (set #copy-cat   "Which languages should be installed ?")
  27. (set #copy-trans "Which translation files should be installed ?\nThese are only needed if you want to create your own language catalog.")
  28.  
  29. (set #proceed "Proceed")
  30. (set #skip "Skip this part")
  31.  
  32.  
  33. ;--------------------------------------------------------------------------------------------------
  34. ; German texts
  35. ;--------------------------------------------------------------------------------------------------
  36.  
  37. (if (= @language "deutsch")
  38.  (
  39.   (set #welcome-msg (cat "\nWillkommen zur Installation von " @app-name))
  40.  
  41.   (set #which-version "Bitte wählen Sie die Prozessor-Version von PicShow, die installiert werden soll.")
  42.  
  43.   (set #where-picshow "Wo soll das PicShow Hauptprogramm installiert werden ?")
  44.   (set #where-tools   "Wo sollen die zusätzlichen Programme installiert werden ?")
  45.   (set #where-help    "Wo sollen die Hilfe-Dateien installiert werden ?")
  46.   (set #where-prefs   "Wo sollen die Skin- und Einstellungsdateien installiert werden ?")
  47.   (set #where-cat     "Wo sollen die Sprachkataloge installiert werden ?")
  48.   (set #where-trans   "Wo sollen die Übersetzungsdateien installiert werden ?\nDiese werden nur benötigt, wenn Sie einen eigenen Sprach-Katalog erzeugen möchten.")
  49.  
  50.   (set #copy-main  "Kopiere das PicShow Hauptprogramm")
  51.   (set #copy-tools "Kopiere zusätzliche Programme")
  52.   (set #copy-help  "Welche Hilfe-Dateien sollen kopiert werden ?")
  53.   (set #copy-prefs "Kopiere Skin- und Einstellungsdateien")
  54.   (set #copy-cat   "Welche Sprachen sollen installiert werden ?")
  55.   (set #copy-cat   "Welche Übersetzungsdateien sollen installiert werden ?\nDiese werden nur benötigt, wenn Sie einen eigenen Sprach-Katalog erzeugen möchten.")
  56.  
  57.   (set #proceed "Weiter mit Kopieren")
  58.   (set #skip "Diesen Teil überspringen")
  59.  )
  60. )
  61.  
  62.  
  63. ;--------------------------------------------------------------------------------------------------
  64. ; Spanish texts
  65. ;--------------------------------------------------------------------------------------------------
  66.  
  67. (if (= @language "español")
  68.  (
  69.   (set #welcome-msg "")
  70.  
  71.   (set #which-version "Por favor, elija la versión de PicShow que desea instalar.")
  72.  
  73.   (set #where-picshow "¿Dónde desea copiar el programa PicShow?")
  74.   (set #where-tools   "¿Dónde desea copiar las herramientas adicionales?")
  75.   (set #where-help    "¿Dónde desea copiar la documentación?")
  76.   (set #where-prefs   "¿Donde desea copiar el panel de navegación y la definición de teclas?")
  77.   (set #where-cat     "¿Dónde desea copiar los catálogos?")
  78.   (set #where-trans   "¿Dónde desea copiar los códigos fuente de catálogos?\nSolo útil si desea crear su propio catálogo.")
  79.  
  80.   (set #copy-main  "Copiar el programa PicShow.")
  81.   (set #copy-tools "Copiar las herramientas adicionales.")
  82.   (set #copy-help  "Elija documentaciones a copiar.")
  83.   (set #copy-prefs "Copiar panel de navegación y definición de teclas.")
  84.   (set #copy-cat   "Elija idiomas de catálogos a copiar.")
  85.   (set #copy-trans "Elija códigos fuente de catálagos a copiar.\nSolo útil si desea crear su propio catálogo.")
  86.  
  87.   (set #proceed "Proceder")
  88.   (set #skip "Saltar esta parte")
  89.  )
  90. )
  91.  
  92.  
  93. ;--------------------------------------------------------------------------------------------------
  94. ; Texte français
  95. ;--------------------------------------------------------------------------------------------------
  96.  
  97. (if (= @language "français")
  98.  (
  99.   (set #welcome-msg (cat "\nBienvenue - installation de " @app-name))
  100.  
  101.   (set #which-version "Choisissez la version de Picshow à installer, adaptée à votre processeur.")
  102.  
  103.   (set #where-picshow "Où doit être copié le programme Picshow ?")
  104.   (set #where-tools   "Où doivent être copiés les outils optionnels ?")
  105.   (set #where-help    "Où doivent être copiés les fichiers d'aide ?")
  106.   (set #where-prefs   "Où doivent être copiés le skin et les fichiers de préférences ?")
  107.   (set #where-cat     "Où doit être copié le catalogue ?")
  108.   (set #where-trans   "Où doit être copié le fichier de traduction ?\nNécessaire si vous voulez créer votre propre catalogue.")
  109.  
  110.   (set #copy-main  "Copie du programme Picshow")
  111.   (set #copy-tools "Copie des outils optionnels")
  112.   (set #copy-help  "Quel fichier d'aide voulez-vous copier ?")
  113.   (set #copy-prefs "Copie du skin et fichiers de préférences")
  114.   (set #copy-cat   "Quel langage voulez-vous installer ?")
  115.   (set #copy-trans "Quel fichier de traduction voulez-vous installer ?\nNécessaire si vous voulez créer votre propre catalogue.")
  116.  
  117.   (set #proceed "Continuer")
  118.   (set #skip "Passer cette partie")
  119.  )
  120. )
  121.  
  122.  
  123. ;--------------------------------------------------------------------------------------------------
  124. ; Installation   
  125. ;--------------------------------------------------------------------------------------------------
  126.  
  127. (if (>= (/ @installer-version 65536) 44)
  128.  (
  129.   (showmedia "PicShow" "PicShow.jpg" "center" "none" 0)
  130.  )
  131. )
  132. (welcome #welcome-msg)
  133.  
  134. ;------------------------------------------------
  135. ; Get CPU version
  136. ;------------------------------------------------
  137.  
  138. (set @default-dest "Sys:Utilities")
  139.  
  140. (if (exists "Libs:powerpc.library" (noreq))
  141.  (set #cpun 3)
  142.  (if (exists "Libs:ppc.library" (noreq))
  143.   (set #cpun 2)
  144.   (if (>= (database "cpu") "68040")
  145.    (set #cpun 1)
  146.    (set #cpun 0)
  147.   )
  148.  )
  149. )
  150. (select
  151.  (askchoice (prompt #which-version) (help @askchoice-help) (choices "68000" "68040" "PowerUp" "WarpOS") (default #cpun))
  152.  (
  153.   (set #mainsrc  "PicShow")
  154.   (set #maindest "PicShow")
  155.  )
  156.  (
  157.   (set #mainsrc  "PicShow.040")
  158.   (set #maindest "PicShow")
  159.  )
  160.  (
  161.   (set #mainsrc  "PicShow.elf")
  162.   (set #maindest "PicShow.elf")
  163.  )
  164.  (
  165.   (set #mainsrc  "PicShow.wos")
  166.   (set #maindest "PicShow")
  167.  )
  168. )
  169.  
  170. ;------------------------------------------------
  171. ; Get destination directories 
  172. ;------------------------------------------------
  173.  
  174. (set #main-dest  (askdir (prompt #where-picshow)(help @askdir-help) (default @default-dest)))
  175. (set #tool-dest  (askdir (prompt #where-tools)  (help @askdir-help) (default "Sys:Tools")))
  176. (set #help-dest  (askdir (prompt #where-help)   (help @askdir-help) (default "Help:")))
  177. (set #prefs-dest (askdir (prompt #where-prefs)  (help @askdir-help) (default #main-dest)))
  178. (set #cat-dest   (askdir (prompt #where-cat)    (help @askdir-help) (default "Locale:Catalogs")))
  179. (set #trans-dest (askdir (prompt #where-trans)  (help @askdir-help) (default "RAM:")))
  180.  
  181. ;------------------------------------------------
  182. ; Copy files
  183. ;------------------------------------------------
  184.  
  185. (set @default-dest #main-dest)
  186. (if (if (= @user-level 2) (askbool (prompt #copy-main) (help @askbool-help) (choices #proceed #skip) (default 1)) 1)
  187.  (
  188.   (copyfiles (source #mainsrc) (dest #main-dest) (newname #maindest))
  189.   (set #mainicon (cat #maindest ".info"))
  190.   (if (not (exists (tackon #main-dest #mainicon)))
  191.    (copyfiles (source "PicShow.info") (dest #main-dest) (newname #mainicon) (noposition))
  192.   )
  193.  )
  194. )
  195.  
  196. (copyfiles (prompt #copy-tools) (help @copyfiles-help) (confirm "expert")  (source "")             (pattern "(JoinPictures|PicShowTem)")     (infos) (noposition) (dest #tool-dest))
  197. (copyfiles (prompt #copy-help)  (help @copyfiles-help) (confirm "average") (source "")             (pattern "PicShow_??.guide")              (infos) (noposition) (dest #help-dest))
  198. (copyfiles (prompt #copy-prefs) (help @copyfiles-help) (confirm "expert")  (source "")             (pattern "(PicShowNav.iff|PicShow.keys)") (infos) (noposition) (dest #prefs-dest))
  199. (copyfiles (prompt #copy-cat)   (help @copyfiles-help) (confirm "average") (source "catalogs")     (pattern "#?")                                                 (dest #cat-dest))
  200. (if (> @user-level 0)
  201.  (copyfiles (prompt #copy-trans) (help @copyfiles-help) (confirm "average") (source "translations") (pattern "#?")                                                (dest #trans-dest))
  202. )
  203.  
  204. ;--------------------------------------------------------------------------------------------------
  205. ; End of script
  206. ;--------------------------------------------------------------------------------------------------
  207.